home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 10 / CU Amiga Magazine's Super CD-ROM 10 (1997-03-15)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-05][50887 CUAM10].iso / CUCD / Graphics / WildFire / WildFireFPU / Macros / requester.rexx < prev    next >
OS/2 REXX Batch file  |  1997-01-11  |  616b  |  30 lines
  1. /*
  2. ------------------------------------------------------------
  3.  requester.rexx
  4.  
  5.  This script demonstrates the purpose of "m_request"-command
  6.  
  7.  Copyright ©1996 WK-Artworks
  8. ------------------------------------------------------------
  9. */
  10.  
  11. if ~show('P','Wildfire') then do
  12.  say " Error: The Wildfire-program must be started before executing this script."
  13.  exit
  14. end
  15.  
  16. address 'Wildfire'
  17. options results
  18.  
  19. m_request "Do you really wan't to continue this stupid operation ?"
  20. tt=result
  21. if tt=1 then do
  22.  m_message "This was the better choice."
  23.  exit
  24. end
  25.  
  26. do loop=1 to 10
  27.  msg="Message " || loop || " of 10"
  28.  m_message msg
  29. end
  30.